home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / DEMOS.ARC / -COMIC PAGES (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  147 lines
  1. 10 POKE 53280,100
  2. 20 POKE 53281,57
  3. 30 PRINT"[147]"
  4. 40 PRINT""
  5. 50 PRINT"****************************************"
  6. 60 PRINT"****************************************"
  7. 70 PRINT"                 PROGRAM                "
  8. 80 PRINT"              PRESS RETURN              "
  9. 90 PRINT"****************************************"
  10. 100 PRINT"****************************************"
  11. 110 PRINT"[150]"
  12. 120 INPUT N$
  13. 130 PRINT"[147]"
  14. 140 PRINT
  15. 150 PRINT"[158]"
  16. 160 PRINT"****************************************"
  17. 170 PRINT"HI! I AM YOUR COMPUTER. I HAVE A PROGRAM"
  18. 180 PRINT"FOR YOU TO DO. PRESS RETURN TO START.   "
  19. 190 PRINT"****************************************"
  20. 200 PRINT"[150]"
  21. 210 INPUT A$
  22. 220 PRINT"[147]"
  23. 230 PRINT
  24. 235 PRINT"[129]"
  25. 240 PRINT"****************************************"
  26. 250 PRINT"TYPE ONLY YOUR FIRST NAME."
  27. 260 PRINT
  28. 270 PRINT"****************************************"
  29. 280 INPUT B$
  30. 290 PRINT"[147]"
  31. 300 PRINT
  32. 310 PRINT"[159]"
  33. 320 PRINT" **************************************"
  34. 330 PRINT" *                                    *"
  35. 340 PRINT" * COMIC GAME- TYPE PAGE NO. BETWEEN  *"
  36. 350 PRINT" *1-6. TYPE NUMBER PLEASE.            *"
  37. 360 PRINT" *                                    *"
  38. 370 PRINT" **************************************"
  39. 380 PRINT"[150]"
  40. 390 INPUT C$
  41. 395 PRINT"[159]"
  42. 400 PRINT"THANKS"
  43. 410 PRINT B$
  44. 420 PRINT"PRESS RETURN"
  45. 430 PRINT
  46. 440 PRINT"****************************************"
  47. 450 PRINT"[150]"
  48. 460 INPUT D$
  49. 470 IF C$="1" THEN GOTO 540
  50. 480 IF C$="2" THEN GOTO 680
  51. 490 IF C$="3" THEN GOTO 820
  52. 500 IF C$="4" THEN GOTO 930
  53. 510 IF C$="5" THEN GOTO 1030
  54. 520 IF C$="6" THEN GOTO 1140
  55. 530 GOTO 290
  56. 540 PRINT"[147]"
  57. 550 PRINT"[158]"
  58. 560 PRINT"[176][195][195][195][195][195][195][195][195][174]"
  59. 570 PRINT"[194][206][183][183][183][183][183][183][205][194]"
  60. 580 PRINT"[194][180][213][201]    [206][194]"
  61. 590 PRINT"[194][165][202][203]   [206] [194]"
  62. 600 PRINT"[194][180]     [205] [194]"
  63. 610 PRINT"[194][180]      [205][194]"
  64. 620 PRINT"[194][205][175][175][175][175][175][175][206][194]"
  65. 630 PRINT"[194]PAC-MAN[158] [194]"
  66. 640 PRINT"[173][195][195][195][195][195][195][195][195][189]"
  67. 650 PRINT"PRESS RETURN"
  68. 660 INPUT Z$
  69. 670 GOTO 1240
  70. 680 PRINT"[147]"
  71. 690 PRINT"[154]"
  72. 700 PRINT"[176][195][195][195][195][195][195][195][195][195][195][174]"
  73. 710 PRINT"[194] [213][195][195][195][195][195][195][195][201][194]"
  74. 720 PRINT"[194] [194]       [194][194]"
  75. 730 PRINT"[194] [194]   [215]   [194][194]"
  76. 740 PRINT"[194]  [183][183][169]    [194][194]"
  77. 750 PRINT"[194]   [206]     [202][208]"
  78. 760 PRINT"[194]   [183][183][183][183][183][183][201][207]"
  79. 770 PRINT"[194][156]   WHALE [154] [194]"
  80. 780 PRINT"[173][195][195][195][195][195][195][195][195][195][195][189]"
  81. 790 PRINT"PRESS RETURN"
  82. 800 INPUT Y$
  83. 810 GOTO 1240
  84. 820 PRINT"[147]"
  85. 830 PRINT"[159]"
  86. 840 PRINT"[176][195][195][195][195][195][195][174]"
  87. 850 PRINT"[194][215][215] [215][215] [194]"
  88. 860 PRINT"[194]    [215][215][194]"
  89. 870 PRINT"[194][215][215] [215][215] [194]"
  90. 880 PRINT"[194] [215][215]   [194]"
  91. 890 PRINT"[194] EYES [159][194]"
  92. 900 PRINT"[173][195][195][195][195][195][195][189]"
  93. 910 PRINT"PRESS RETURN"
  94. 920 INPUT X$
  95. 925 GOTO 1240
  96. 930 PRINT"[147]"
  97. 940 PRINT""
  98. 950 PRINT"[176][195][195][195][195][195][195][174]"
  99. 960 PRINT"[194][213][195][195][195][195][201][194]"
  100. 970 PRINT"[194][194][215]  [215][194][194]"
  101. 980 PRINT"[194][194]    [194][194]"
  102. 985 PRINT"[194][194][206][205][206][205][194][194]"
  103. 990 PRINT"[194][154]GHOST [194]"
  104. 995 PRINT"[173][195][195][195][195][195][195][189]"
  105. 1000 PRINT"PRESS RETURN"
  106. 1010 INPUT W$
  107. 1020 GOTO 1240
  108. 1030 PRINT"[147]"
  109. 1040 PRINT"[155]"
  110. 1050 PRINT"[176][195][195][195][195][174]"
  111. 1060 PRINT"[194][206][183][183][205][194]"
  112. 1070 PRINT"[194][180][215][215][170][194]"
  113. 1080 PRINT"[194][205][202][203][206][194]"
  114. 1090 PRINT"[194] [183][183] [194]"
  115. 1100 PRINT"[194][150]FACE[155][194]"
  116. 1105 PRINT"[173][195][195][195][195][189]"
  117. 1110 PRINT"PRESS RETURN"
  118. 1120 INPUT V$
  119. 1130 GOTO 1240
  120. 1140 PRINT"[147]"
  121. 1145 PRINT"[156]"
  122. 1150 PRINT"[176][195][195][195][195][195][174]"
  123. 1160 PRINT"[194][206][215][183][215][205][194]"
  124. 1170 PRINT"[194][205][206][205][206][205][194]"
  125. 1180 PRINT"[194][206][205][206][205][206][194]"
  126. 1190 PRINT"[194][205][175][175][175][206][194]"
  127. 1200 PRINT"[194][158]CHOMP[156][194]"
  128. 1210 PRINT"[173][195][195][195][195][195][189]"
  129. 1220 PRINT"PRESS RETURN"
  130. 1230 INPUT U$
  131. 1240 PRINT"[147]"
  132. 1250 PRINT""
  133. 1260 PRINT
  134. 1270 PRINT" **************************************"
  135. 1280 PRINT" *WANT TO SEE ANOTHER COMIC? TYPE YES *"
  136. 1290 PRINT" *OR NO PLEASE.     *******************"
  137. 1300 PRINT" **************************************"
  138. 1310 INPUT M$
  139. 1320 IF M$="YES" THEN GOTO 290
  140. 1330 IF M$="NO" THEN GOTO 1350
  141. 1340 GOTO 1240
  142. 1350 PRINT"[154]"
  143. 1360 PRINT"[147]"
  144. 1370 POKE 53280,30
  145. 1380 POKE 53281,70
  146. 1390 END
  147.